home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-2.dxr / Internal_28_botó augment volum lupa.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  550 b   |  21 lines
  1. on mouseDown
  2.   global nVolum
  3.   if nVolum < 7 then
  4.     set nVolum to nVolum + 1
  5.     set the soundLevel to nVolum
  6.     set the member of sprite 38 to member string(nVolum) of castLib "Elementos graficos"
  7.     updateStage()
  8.   end if
  9.   startTimer()
  10.   repeat while the stillDown
  11.     if the timer > 30 then
  12.       if nVolum < 7 then
  13.         set nVolum to nVolum + 1
  14.         set the soundLevel to nVolum
  15.         set the member of sprite 38 to member string(nVolum) of castLib "Elementos graficos"
  16.         updateStage()
  17.       end if
  18.     end if
  19.   end repeat
  20. end
  21.